home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MacQForth 1.0 / source / QFORTH.SYSTEM < prev   
Text File  |  1995-04-19  |  8KB  |  7 lines
  1. òIˇi®äIˇi™L≤ negate    Ä‚< $8   ÑÜ   äE)Ää0ĉ–ƒê†¢L≤ †ˇ¢ˇL≤ > T8   ÑÜ   äE)Ää ĉ–ƒê    †ˇ¢ˇL≤ †¢L≤ = Ü8•Ù…ê$§Óπ™Ÿ™– π™Ÿ™–©ˇ,©ô™ô™»»ÑÓΔÙ`©L√%<> ∫8•Ù…ê$§Óπ™Ÿ™– π™Ÿ™–©,©ˇô™ô™»»ÑÓΔÙ`©L√%u< Ó8   ÑÜ   ‰ê∞ƒê†¢L≤ †ˇ¢ˇL≤ 0= 9   ä–ò–©ˇ,©™®L≤ 0< /9   ä©ˇ,©™®L≤ 0> D9   ä–ò–Ää0©ˇ,©™®L≤ false d9†¢L≤ true r9†ˇ¢ˇL≤ 1+ ~9•Ù ¶Ó˛™–˛™`©L√%1- ó9•Ù¶ÓΩ™–fi™fi™`©L√%2+ ≥9•Ù¶ÓΩ™ù™–˛™`©L√%2- —9•Ù¶ÓΩ™8Èù™∞fi™`©L√%2* 9•Ù    ¶Ó™>™`©L√%2/ :•Ù    ¶Ó^™~™`©L√%b.and !:   ÑÜ   ò%®ä%™L≤ b.or =:   ÑÜ   ò®ä™L≤ b.clr Z:   òIˇÖäIˇÖ   ò%®ä%™L≤ page |:©† √d$`cv â:   Ñ%òL"¸ch ó:   Ñ$`key £:  ®¢L≤ key? ≥:,¿0©,©ˇ®™L≤ expect À:   ÑÜ   ÑÜúQ;úR;  ……–$≠Q;R;Ì≠Q;–ŒR;ŒQ;©      ©       ©      Ä—…–`¨Q;ƒ–¨R;ƒ殕mQ;Ö•mR;Öòí      ÓQ;–ÓR;Äûspan H;¨Q;ÆR;L≤ emit Z;   òL     space i;© L     spaces w;   ÑÜ©†¶–Δ¶‡ˇΔ      ÄÌ`cr ô;©çÄŒfill §;   Ñ   Z⁄   ÑÜ•˙ †ë»–˚Ê –ˆ˙†ë» –˙`erase ⁄;©ÖL©;close È;L§*bye Ú; øe¯;fcreate     <©ç<úä<úâ<úà<úá<©çÜ<   åÑ<éÖ<   åÉ<©√çÇ<   ÑÜ©¿çÄ<Ö©
  2. çÅ<Ö `< ø¿<∞†¢L≤ ®¢L≤ †±»ëĘòí`@Ä
  3.  
  4.  
  5. ¶fdestroy û<©ç<   ÑÜ©¿çÄ<Ö©
  6. çÅ<Ö `< ø¡<LQ<fstat Ã<©
  7. ç<   åÄ<éÅ< øƒ<H¨É<¢ ≤ ¨Ñ<ÆÖ< ≤ ¨á<Æà< ≤ h(LQ<fopen     =©ç<   ÑÜ   å{<πo<çÄ<Öπr<çÅ<Öπu<çÇ<πx<çÉ< `< ø»<H≠Ñ<¨{<ô|<h(LQ<fposition \=©ç<   åÅ<éÇ<   åÉ<   π|<çÄ< øŒ<LQ<fread ä=©ç<   åÉ<éÑ<   åÅ<éÇ<   π|<çÄ< ø <H¨Ö<ÆÜ< ≤ h(LQ<fwrite …=©ç<   åÉ<éÑ<   åÅ<éÇ<   π|<çÄ< øÀ<H¨Ö<ÆÜ< ≤ h(LQ<fclose >©ç<   π|<çÄ< øÃ<LQ<